Option Explicit
Sub F_Sample005()
    'ոF_Data.csv
    Dim myCnc1     As String
    Dim myCnc2     As String
    Dim myFileName As String
    myFileName = "F_Data.csv"                           'ŪJɮ
    Worksheets.Add                                     'u@sW
    myCnc1 = "TEXT;"
    myCnc2 = ThisWorkbook.Path & "\" & myFileName
    With ActiveSheet.QueryTables.Add( _
        Connection:=myCnc1 & myCnc2, _
        Destination:=Range("A1"))                       'ŪJؼxs
        .TextFilePlatform = 950                          'rXw
        .TextFileCommaDelimiter = True
        '榡w]зǡ^
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1)
        'b줤w榡
        '.TextFileColumnDataTypes = Array(2, 1, 9, 9, 9, 9, 9, 1)
        .Refresh
    End With
End Sub
